home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 12 / Mac Magazin and MacEasy Magazine CD - Issue 12.iso / CD Extras / Ultimate Human Body / DATA / shared.dir / 00703_Script_703 < prev    next >
Text File  |  1995-04-25  |  823b  |  31 lines
  1. on PCorMac eitherFN
  2.   --ïïsend this a Filename in form XXXXX?.Dir
  3.   --ïïand 5th char from the end is reset depending on machine type
  4.   
  5.   if the machinetype = 256 then
  6.     set type = "P"
  7.   else 
  8.     set type = "M"
  9.   end if
  10.   put type into char (length(eitherFN)-4) of eitherFN
  11.   go frame "st" of movie string(eitherFN)
  12. end 
  13.  
  14.  
  15. on goer
  16.   global movielist
  17.   if getat(movielist, count(movielist)) = count(movielist) - 1 then
  18.     
  19.     put getat(movielist, 1) into moviename
  20.     setat movielist, count(movielist), 1
  21.     
  22.   else
  23.     set x = (1 + getat(movielist, count(movielist)))
  24.     setat movielist, count(movielist), x
  25.     put getat(movielist, x) into moviename
  26.   end if
  27.   put "@:" & chars(moviename, 2, length(moviename)) into moviename2
  28.   put moviename2
  29.   go frame "st" of movie moviename2
  30. end
  31.